Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/allfiles/move/move.dir/00004_Script_4

Text File | 1999-03-05 | 2KB | 96 lines

on stopmovie
  puppetsprite 15, false

end

on keydown
  if the key = "q" then
    puppetsprite 15, false
    go "end"
  end if
end


on startmovie
  global currentpage,currentproject,loop2var,loop2var2, currentmsg



  --cursor script

  set the cursor of sprite 17 = [73,74]
  set the cursor of sprite 20 = [73,74]
  set the cursor of sprite 102 = [73,74]
  set the cursor of sprite 103 = [73,74]
  set the cursor of sprite 115 = [73,74]

  set currentpage = 59
  set currentproject = 59

  set currentmsg = 0

end

on gotoPage number,project,webPage
  global currentproject,currentpage



  set currentproject = number
  set the member of sprite 105 = project

  --load the next page picture
  set the member of sprite 15 = member string(line currentpage of field "pages")


  --from the web version
  --gotoNetPage WebPage,"main"
end

on showmousedown rolloversprite
  global currentproject,currentpage

  --set currentproject = rolloversprite
  --set currentpage = rolloversprite
  set the locH of sprite 21 = the locH of sprite rolloversprite
  set the member of sprite 105 = line currentproject of field "project"


end

on showrollover rolloversprite
  set the locH of sprite 20 = the locH of sprite rolloversprite
  set the member of sprite 105 = line (rolloversprite) of field "project"
end


on buttonclick whichsprite
  global currentproject, currentpage
  --set the locH of sprite 3 = -610
  set the locH of sprite 20 = -50
  set the locH of sprite 21 = the locH of sprite whichsprite


  set currentproject = whichsprite
  set currentpage = whichsprite




  set the member of sprite 105 = line currentproject of field "project"


  gotoPage currentproject,line currentproject of field "project",line currentpage of field "pages"


end